(mail-extr-voodoo): Handle unmatched quotes in the comment-deletion loop.

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 4b5fa650e6242dcfa6b30c140f51d9a168ccc566..b7975928253965916a9223254ac5473627479a0e 100644 (file)
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -1456,7 +1456,7 @@ If ADDRESS contains more than one RFC-822 address, only the first is
        (let ((cbeg (point)))
          (set-syntax-table mail-extr-address-text-comment-syntax-table)
          (cond ((memq (following-char) '(?\' ?\`))
-                (search-forward "'" nil t
+                (search-forward "'" nil 'move
                                 (if (eq ?\' (following-char)) 2 1)))
                (t
                 (or (mail-extr-safe-move-sexp 1)